home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / v cisle / pcwkillall / pcwKillEmAll.exe / Tools / pcwKillMediaPlayer.vbs next >
Encoding:
Text File  |  2006-09-18  |  36.0 KB  |  710 lines
  1. Set MyShell = CreateObject("Wscript.Shell")
  2. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  3. Set umgebung=MyShell.Environment("PROCESS")
  4. On Error Resume Next
  5. windir=umgebung("windir")
  6. userprofile=umgebung("userprofile")
  7. allusersprofile=umgebung("allusersprofile")
  8.  
  9. NT = MyShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
  10. Programs = MyShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
  11. dllcache = MyShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\SFCDllCacheDir")
  12.  
  13. If not NT = "" Then
  14.     ret = MsgBox("Pokud chcete odstranit Windows Media Player ze systΘmu kompletn∞, musφte spustit Konzolu pro zotavenφ. " &_
  15.     "P°ipravte si instalaΦnφ CD Windows a v Φlßnku v Φasopise si p°eΦt∞te, jak mßte postupovat a jak Konzoli pro zotavenφ pozd∞ji spustit. " & vbcr &_
  16.     "Mß se nynφ pokraΦovat dßle?", vbYesNo+vbInformation, "Odstranit Windows Media Player")
  17.     If Ret = vbNo Then wscript.quit
  18. Else
  19.     ret = MsgBox("Mß se nynφ odstranit Windows Media Player?", vbYesNo+vbInformation, "Odstranit Windows Media Player")
  20.     If Ret = vbNo Then wscript.quit
  21. End if
  22.  
  23. If dllcache = "" Then
  24.     dllcache = windir & "\System32\dllcache"
  25. End If
  26. If Right(dllcache, 1) = "\" Then dllcache = Mid(dllcache, 1, Len(dllcache)-1)
  27.  
  28. Set Killer = MyFiles.OpenTextFile(windir & "\pcwKmp.BAT", 2, True)
  29. If not NT="" Then
  30.     Killer.Writeline "Set AllowAllPaths = True"
  31. End If
  32. if (myfiles.FileExists(windir & "\$NTUNINSTALLQ828026$\WMPCORE.DLL")) Then
  33.     Killer.Writeline "del " & chr(34) & windir & "\$NTUNINSTALLQ828026$\WMPCORE.DLL" & chr(34)
  34. End If
  35. if (myfiles.FileExists( windir & "\HELP\PLYR_ERR.CHM")) Then
  36.     Killer.Writeline "del " & chr(34) & windir & "\HELP\PLYR_ERR.CHM" & chr(34)
  37. End If
  38. if (myfiles.FileExists(windir & "\HELP\WMPLAYER.CHM")) Then
  39.     Killer.Writeline "del " & chr(34) & windir & "\HELP\WMPLAYER.CHM" & chr(34) 
  40. End If
  41. if (myfiles.FileExists(windir & "\HELP\WMPLAY.CHM")) Then
  42.     Killer.Writeline "del " & chr(34) & windir & "\HELP\WMPLAY.CHM" & chr(34) 
  43. End If
  44. if (myfiles.FileExists(windir & "\INF\DRM.INF")) Then
  45.     Killer.Writeline "del " & chr(34) & windir & "\INF\DRM.INF" & chr(34)
  46. End If
  47. if (myfiles.FileExists(windir & "\INF\DRM.PNF")) Then
  48.     Killer.Writeline "del " & chr(34) & windir & "\INF\DRM.PNF" & chr(34)
  49. End If
  50. if (myfiles.FileExists(windir & "\INF\MYMUSIC.INF")) Then
  51.     Killer.Writeline "del " & chr(34) & windir & "\INF\MYMUSIC.INF" & chr(34)
  52. End If
  53. if (myfiles.FileExists(windir & "\INF\SKINS.INF")) Then
  54.     Killer.Writeline "del " & chr(34) & windir & "\INF\SKINS.INF" & chr(34)
  55. End If
  56. if (myfiles.FileExists(windir & "\INF\UNREGMP2.EXE")) Then
  57.     Killer.Writeline "del " & chr(34) & windir & "\INF\UNREGMP2.EXE" & chr(34)
  58. End If
  59. if (myfiles.FileExists( windir & "\INF\WMDM.INF")) Then
  60.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMDM.INF" & chr(34)
  61. End If
  62. if (myfiles.FileExists(windir & "\INF\WMEXPACK.INF")) Then
  63.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMEXPACK.INF" & chr(34) 
  64. End If
  65. if (myfiles.FileExists(windir & "\INF\WMFSDK.INF")) Then
  66.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMFSDK.INF" & chr(34)
  67. End If
  68. if (myfiles.FileExists(windir & "\INF\WMP.INF")) Then
  69.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMP.INF" & chr(34)
  70. End If
  71. if (myfiles.FileExists(windir & "\INF\WMPLAYER.ADM")) Then
  72.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMPLAYER.ADM" & Chr(34)
  73. End If
  74. if (myfiles.FileExists(windir & "\INF\WM819639.INF")) Then
  75.     Killer.Writeline "del " & chr(34) & windir & "\INF\WM819639.INF" & chr(34)
  76. End If
  77. if (myfiles.FileExists(windir & "\INF\WMPLAYER.INF")) Then
  78.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMPLAYER.INF" & chr(34)
  79. End If
  80. if (myfiles.FileExists(windir & "\INF\WMTOUR.INF")) Then
  81.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMTOUR.INF" & chr(34)
  82. End If
  83. if (myfiles.FileExists(windir & "\INF\WMP.PNF")) Then
  84.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMP.PNF" & chr(34)
  85. End If
  86. if (myfiles.FileExists(windir & "\INF\WMPLAYER.PNF")) Then
  87.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMPLAYER.PNF" & chr(34)
  88. End If
  89. If (myfiles.FileExists(windir & "\REGISTEREDPACKAGES\{44BBA855-CC51-11CF-AAFA-00AA00B6015C}\QASF.DLL")) Then
  90.     Killer.Writeline "del " & chr(34) & windir & "\REGISTEREDPACKAGES\{44BBA855-CC51-11CF-AAFA-00AA00B6015C}\QASF.DLL" & chr(34)
  91. End If
  92. if (myfiles.FileExists(windir & "\REGISTEREDPACKAGES\{CAC24AF7-5447-4F19-9FA6-F6E6E69D395E}\WMEXPACK.CAT")) Then
  93.     Killer.Writeline "del " & chr(34) & windir & "\REGISTEREDPACKAGES\{CAC24AF7-5447-4F19-9FA6-F6E6E69D395E}\WMEXPACK.CAT" & Chr(34)
  94. End If
  95. if (myfiles.FileExists(windir & "\REGISTEREDPACKAGES\{CAC24AF7-5447-4F19-9FA6-F6E6E69D395E}\WMEXPACK.INF")) Then
  96.     Killer.Writeline "del " & chr(34) & windir & "\REGISTEREDPACKAGES\{CAC24AF7-5447-4F19-9FA6-F6E6E69D395E}\WMEXPACK.INF" & chr(34)
  97. End If
  98. if (myfiles.FileExists(windir & "\RegisteredPackages\{B3C1B200-8F14-4C49-96D3-67425AD59914}\WMPLAYER.INF")) Then
  99.     Killer.Writeline "del " & chr(34) & windir & "\RegisteredPackages\{B3C1B200-8F14-4C49-96D3-67425AD59914}\WMPLAYER.INF" & chr(34)
  100. End If
  101. if (myfiles.FileExists(windir & "\RegisteredPackages\{B3C1B200-8F14-4C49-96D3-67425AD59914}\WMPLAYER.CAT")) Then
  102.     Killer.Writeline "del " & chr(34) & windir & "\RegisteredPackages\{B3C1B200-8F14-4C49-96D3-67425AD59914}\WMPLAYER.CAT" & Chr(34)
  103. End If
  104. if (myfiles.FileExists(windir & "\RegisteredPackages\{B3C1B200-8F14-4C49-96D3-67425AD59914}\WMPLAYER.EXE")) Then
  105.     Killer.Writeline "del " & chr(34) & windir & "\RegisteredPackages\{B3C1B200-8F14-4C49-96D3-67425AD59914}\WMPLAYER.EXE" & chr(34)
  106. End If
  107. if (myfiles.FileExists(windir & "\SYSTEM32\ASFERROR.DLL")) Then
  108.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\ASFERROR.DLL" & chr(34)
  109. End If
  110. if (myfiles.FileExists(windir & "\SYSTEM32\BLACKBOX.DLL")) Then
  111.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\BLACKBOX.DLL" & chr(34)
  112. End If
  113. if (myfiles.FileExists(windir & "\SYSTEM32\CEWMDM.DLL")) Then
  114.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\CEWMDM.DLL" & chr(34)
  115. End If
  116. if (myfiles.FileExists(dllcache & "\ASFERROR.DLL")) Then
  117.     Killer.Writeline "del " & chr(34) & dllcache & "\ASFERROR.DLL" & chr(34)
  118. End If
  119. if (myfiles.FileExists(dllcache & "\BLACKBOX.DLL")) Then
  120.     Killer.Writeline "del " & chr(34) & dllcache & "\BLACKBOX.DLL" & chr(34)
  121. End If
  122. if (myfiles.FileExists(dllcache & "\CEWMDM.DLL")) Then
  123.     Killer.Writeline "del " & chr(34) & dllcache & "\CEWMDM.DLL" & chr(34)
  124. End If
  125. if (myfiles.FileExists(dllcache & "\DRMCLIEN.DLL")) Then
  126.     Killer.Writeline "del " & chr(34) & dllcache & "\DRMCLIEN.DLL" & chr(34)
  127. End If
  128. if (myfiles.FileExists(dllcache & "\DRMSTOR.DLL")) Then
  129.     Killer.Writeline "del " & chr(34) & dllcache & "\DRMSTOR.DLL" & chr(34)
  130. End If
  131. if (myfiles.FileExists(dllcache & "\DRMV2CLT.DLL")) Then
  132.     Killer.Writeline "del " & chr(34) & dllcache & "\DRMV2CLT.DLL" & chr(34) 
  133. End If
  134. if (myfiles.FileExists(dllcache & "\LAPRXY.DLL")) Then
  135.     Killer.Writeline "del " & chr(34) & dllcache & "\LAPRXY.DLL" & chr(34)
  136. End If
  137. If (myfiles.FileExists(dllcache & "\LOGAGENT.EXE")) Then
  138.     Killer.Writeline "del " & chr(34) & dllcache & "\LOGAGENT.EXE" & chr(34) 
  139. End If
  140. if (myfiles.FileExists(dllcache & "\MPG4DMOD.DLL")) Then
  141.     Killer.Writeline "del " & chr(34) & dllcache & "\MPG4DMOD.DLL" & chr(34) 
  142. End If
  143. if (myfiles.FileExists(dllcache & "\MSNETOBJ.DLL")) Then
  144.     Killer.Writeline "del " & chr(34) & dllcache & "\MSNETOBJ.DLL" & chr(34)
  145. End If
  146. if (myfiles.FileExists(dllcache & "\MSPMSP.DLL")) Then
  147.     Killer.Writeline "del " & chr(34) & dllcache & "\MSPMSP.DLL" & chr(34)
  148. End If
  149. if (myfiles.FileExists(dllcache & "\MSSCP.DLL")) Then
  150.     Killer.Writeline "del " & chr(34) & dllcache & "\MSSCP.DLL" & chr(34)
  151. End If
  152. if (myfiles.FileExists(dllcache & "\MSWMDM.DLL")) Then
  153.     Killer.Writeline "del " & chr(34) & dllcache & "\MSWMDM.DLL" & chr(34)
  154. End If
  155. if (myfiles.FileExists(dllcache & "\NPDRMV2.DLL")) Then
  156.     Killer.Writeline "del " & chr(34) & dllcache & "\NPDRMV2.DLL" & chr(34)
  157. End If
  158. if (myfiles.FileExists(dllcache & "\NPWMSDRM.DLL")) Then
  159.     Killer.Writeline "del " & chr(34) & dllcache & "\NPWMSDRM.DLL" & chr(34)
  160. End If
  161. if (myfiles.FileExists(dllcache & "\QASF.DLL")) Then
  162.     Killer.Writeline "del " & chr(34) & dllcache & "\QASF.DLL" & chr(34)
  163. End If
  164. if (myfiles.FileExists(dllcache & "\SETUP_WM.EXE")) Then
  165.     Killer.Writeline "del " & chr(34) & dllcache & "\SETUP_WM.EXE" & chr(34)
  166. End If
  167. if (myfiles.FileExists(dllcache & "\UNREGMP2.EXE")) Then
  168.     Killer.Writeline "del " & chr(34) & dllcache & "\UNREGMP2.EXE" & chr(34)
  169. End If
  170. if (myfiles.FileExists(dllcache & "\WMADMOD.DLL")) Then
  171.     Killer.Writeline "del " & chr(34) & dllcache & "\WMADMOD.DLL" & chr(34)
  172. End If
  173. if (myfiles.FileExists(dllcache & "\WMADMOE.DLL")) Then
  174.     Killer.Writeline "del " & chr(34) & dllcache & "\WMADMOE.DLL" & chr(34)
  175. End If
  176. if (myfiles.FileExists(dllcache & "\WMASF.DLL")) Then
  177.     Killer.Writeline "del " & chr(34) & dllcache & "\WMASF.DLL" & chr(34)
  178. End If
  179. if (myfiles.FileExists(dllcache & "\WMDMLOG.DLL")) Then
  180.     Killer.Writeline "del " & chr(34) & dllcache & "\WMDMLOG.DLL" & chr(34)
  181. End If
  182. if (myfiles.FileExists(dllcache & "\WMDMPS.DLL")) Then
  183.     Killer.Writeline "del " & chr(34) & dllcache & "\WMDMPS.DLL" & chr(34)
  184. End If
  185. if (myfiles.FileExists(dllcache & "\WMNETMGR.DLL")) Then
  186.     Killer.Writeline "del " & chr(34) & dllcache & "\WMNETMGR.DLL" & chr(34)
  187. End If
  188. if (myfiles.FileExists(dllcache & "\WMP.DLL")) Then
  189.     Killer.Writeline "del " & chr(34) & dllcache & "\WMP.DLL" & chr(34)
  190. End If
  191. if (myfiles.FileExists(dllcache & "\WMP.OCX")) Then
  192.     Killer.Writeline "del " & chr(34) & dllcache & "\WMP.OCX" & chr(34)
  193. End If
  194. if (myfiles.FileExists(dllcache & "\WMPCD.DLL")) Then
  195.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPCD.DLL" & chr(34)
  196. End If
  197. if (myfiles.FileExists(dllcache & "\WMPCORE.DLL")) Then
  198.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPCORE.DLL" & chr(34) 
  199. End If
  200. if (myfiles.FileExists(dllcache & "\WMPDXM.DLL")) Then
  201.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPDXM.DLL" & chr(34) 
  202. End If
  203. if (myfiles.FileExists(dllcache & "\WMPLAYER.EXE")) Then
  204.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPLAYER.EXE" & chr(34) 
  205. End If
  206. if (myfiles.FileExists(dllcache & "\WMPSHELL.DLL")) Then
  207.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPSHELL.DLL" & chr(34)
  208. End If
  209. if (myfiles.FileExists(dllcache & "\WMPSTUB.EXE")) Then
  210.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPSTUB.EXE" & chr(34)
  211. End If
  212. if (myfiles.FileExists(dllcache & "\WMPUI.DLL")) Then
  213.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPUI.DLL" & chr(34)
  214. End If
  215. if (myfiles.FileExists(dllcache & "\WMSDMOD.DLL")) Then
  216.     Killer.Writeline "del " & chr(34) & dllcache & "\WMSDMOD.DLL" & chr(34)  
  217. End If
  218. if (myfiles.FileExists(dllcache & "\WMVCORE.DLL")) Then
  219.     Killer.Writeline "del " & chr(34) & dllcache & "\WMVCORE.DLL" & chr(34)  
  220. End If
  221. if (myfiles.FileExists(dllcache & "\WMVDMOD.DLL")) Then
  222.     Killer.Writeline "del " & chr(34) & dllcache & "\WMVDMOD.DLL" & chr(34)  
  223. End If
  224. if (myfiles.FileExists(dllcache & "\WMPVIS.DLL")) Then
  225.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPVIS.DLL" & chr(34)  
  226. End If
  227. if (myfiles.FileExists(dllcache & "\BROWSEWM.DLL")) Then
  228.     Killer.Writeline "del " & chr(34) & dllcache & "\BROWSEWM.DLL" & chr(34)  
  229. End If
  230. if (myfiles.FileExists(windir & "\SYSTEM32\DRMCLIEN.DLL")) Then
  231.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\DRMCLIEN.DLL" & chr(34)  
  232. End If
  233. if (myfiles.FileExists(windir & "\SYSTEM32\DRMSTOR.DLL")) Then
  234.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\DRMSTOR.DLL" & chr(34)  
  235. End If
  236. if (myfiles.FileExists(windir & "\SYSTEM32\DRMV2CLT.DLL")) Then
  237.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\DRMV2CLT.DLL" & chr(34)  
  238. End If
  239. if (myfiles.FileExists(windir & "\SYSTEM32\GROUPPOLICY\ADM\WMPLAYER.ADM")) Then
  240.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\GROUPPOLICY\ADM\WMPLAYER.ADM" & Chr(34)
  241. End If
  242. if (myfiles.FileExists(windir & "\SYSTEM32\LAPRXY.DLL")) Then 
  243.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\LAPRXY.DLL" & chr(34)  
  244. End If
  245. if (myfiles.FileExists(windir & "\SYSTEM32\LOGAGENT.EXE")) Then
  246.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\LOGAGENT.EXE" & chr(34)
  247. End If
  248. if (myfiles.FileExists(windir & "\SYSTEM32\MP43DMOD.DLL")) Then
  249.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MP43DMOD.DLL" & chr(34)  
  250. End If
  251. if (myfiles.FileExists(windir & "\SYSTEM32\MP4SDMOD.DLL")) Then
  252.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MP4SDMOD.DLL" & chr(34)  
  253. End If
  254. if (myfiles.FileExists(windir & "\SYSTEM32\MPG4DMOD.DLL")) Then
  255.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MPG4DMOD.DLL" & chr(34)  
  256. End If
  257. if (myfiles.FileExists(windir & "\SYSTEM32\MSNETOBJ.DLL")) Then
  258.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MSNETOBJ.DLL" & chr(34)  
  259. End If
  260. if (myfiles.FileExists(windir & "\SYSTEM32\MSPMSNSV.DLL")) Then
  261.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MSPMSNSV.DLL" & chr(34)  
  262. End If
  263. if (myfiles.FileExists(windir & "\SYSTEM32\MSPMSP.DLL")) Then
  264.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MSPMSP.DLL" & chr(34)  
  265. End If
  266. if (myfiles.FileExists(windir & "\SYSTEM32\MSSCP.DLL")) Then
  267.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MSSCP.DLL" & chr(34)  
  268. End If
  269. if (myfiles.FileExists(windir & "\SYSTEM32\MSWMDM.DLL")) Then
  270.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MSWMDM.DLL" & chr(34)  
  271. End If
  272. if (myfiles.FileExists(windir & "\SYSTEM32\QASF.DLL")) Then
  273.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\QASF.DLL" & chr(34)  
  274. End If
  275. if (myfiles.FileExists(windir & "\SYSTEM32\WMADMOD.DLL")) Then
  276.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMADMOD.DLL" & chr(34)  
  277. End If
  278. if (myfiles.FileExists(windir & "\SYSTEM32\WMADMOE.DLL")) Then
  279.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMADMOE.DLL" & chr(34)  
  280. End If
  281. if (myfiles.FileExists(windir & "\SYSTEM32\WMASF.DLL")) Then
  282.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMASF.DLL" & chr(34)  
  283. End If
  284. if (myfiles.FileExists(windir & "\SYSTEM32\WMDMLOG.DLL")) Then
  285.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMDMLOG.DLL" & chr(34)  
  286. End If
  287. if (myfiles.FileExists(windir & "\SYSTEM32\WMDMPS.DLL")) Then
  288.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMDMPS.DLL" & chr(34)  
  289. End If
  290. if (myfiles.FileExists(windir & "\SYSTEM32\WMERROR.DLL")) Then
  291.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMERROR.DLL" & chr(34)  
  292. End If
  293. if (myfiles.FileExists(windir & "\SYSTEM32\WMIDX.DLL")) Then
  294.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMIDX.DLL" & chr(34)  
  295. End If
  296. if (myfiles.FileExists(windir & "\SYSTEM32\WMNETMGR.DLL")) Then
  297.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMNETMGR.DLL" & chr(34)  
  298. End If
  299. if (myfiles.FileExists(windir & "\SYSTEM32\WMP.DLL")) Then
  300.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMP.DLL" & chr(34)  
  301. End If
  302. if (myfiles.FileExists(windir & "\SYSTEM32\WMP.OCX")) Then
  303.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMP.OCX" & chr(34)
  304. End If
  305. if (myfiles.FileExists(windir & "\SYSTEM32\WMPASF.DLL")) Then
  306.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPASF.DLL" & chr(34)  
  307. End If
  308. if (myfiles.FileExists(windir & "\SYSTEM32\WMPCD.DLL")) Then
  309.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPCD.DLL" & chr(34)  
  310. End If
  311. if (myfiles.FileExists(windir & "\SYSTEM32\WMPCORE.DLL")) Then
  312.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPCORE.DLL" & chr(34)  
  313. End If
  314. if (myfiles.FileExists(windir & "\SYSTEM32\WMPNS.DLL")) Then
  315.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPNS.DLL" & chr(34)  
  316. End If
  317. if (myfiles.FileExists(windir & "\SYSTEM32\WMPSHELL.DLL")) Then
  318.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPSHELL.DLL" & chr(34)  
  319. End If
  320. if (myfiles.FileExists(windir & "\SYSTEM32\WMPUI.DLL")) Then
  321.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPUI.DLL" & chr(34)  
  322. End If
  323. if (myfiles.FileExists(windir & "\SYSTEM32\WMPSCHEME.XML")) Then
  324.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPSCHEME.XML" & Chr(34)
  325. End If
  326. if (myfiles.FileExists(windir & "\SYSTEM32\WMPSTUB.EXE")) Then
  327.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPSTUB.EXE" & chr(34)  
  328. End If
  329. if (myfiles.FileExists(windir & "\SYSTEM32\WMSDMOD.DLL")) Then  
  330.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMSDMOD.DLL" & chr(34)  
  331. End If
  332. if (myfiles.FileExists(windir & "\SYSTEM32\WMSDMOE2.DLL")) Then
  333.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMSDMOE2.DLL" & chr(34)  
  334. End If
  335. if (myfiles.FileExists(windir & "\SYSTEM32\WMSDMOE.DLL")) Then
  336.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMSDMOE.DLL" & chr(34)  
  337. End If
  338. if (myfiles.FileExists(windir & "\SYSTEM32\WMSPDMOD.DLL")) Then
  339.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMSPDMOD.DLL" & chr(34)  
  340. End If
  341. if (myfiles.FileExists(windir & "\SYSTEM32\WMSPDMOE.DLL")) Then
  342.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMSPDMOE.DLL" & chr(34)  
  343. End If
  344. if (myfiles.FileExists(windir & "\SYSTEM32\WMSTREAM.DLL")) Then
  345.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMSTREAM.DLL" & chr(34)  
  346. End If
  347. if (myfiles.FileExists(windir & "\SYSTEM32\WMV8DMOD.DLL")) Then
  348.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMV8DMOD.DLL" & chr(34)  
  349. End If
  350. if (myfiles.FileExists(windir & "\SYSTEM32\WMVCORE.DLL")) Then
  351.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMVCORE.DLL" & chr(34) 
  352. End If
  353. if (myfiles.FileExists(windir & "\SYSTEM32\WMVCORE2.DLL")) Then
  354.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMVCORE2.DLL" & chr(34)  
  355. End If
  356. if (myfiles.FileExists(windir & "\SYSTEM32\WMVDMOD.DLL")) Then
  357.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMVDMOD.DLL" & chr(34)  
  358. End If
  359. if (myfiles.FileExists(windir & "\SYSTEM32\WMVDMOE2.DLL")) Then
  360.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMVDMOE2.DLL" & chr(34)
  361. End If
  362. if (myfiles.FileExists(windir & "\SYSTEM32\WMVDMOE.DLL")) Then
  363.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMVDMOE.DLL" & chr(34)   
  364. End If
  365. if (myfiles.FileExists(windir & "\SYSTEM32\WMPVIS.DLL")) Then
  366.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPVIS.DLL" & chr(34)  
  367. End If
  368. if (myfiles.FileExists(windir & "\SYSTEM32\BROWSEWM.DLL")) Then
  369.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\BROWSEWM.DLL" & chr(34)  
  370. End If
  371. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMP.INF")) Then
  372.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMP.INF" & chr(34)
  373. End If
  374. If (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMP.DLL")) Then
  375.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMP.DLL" & chr(34)  
  376. End If
  377. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMP.OCX")) Then
  378.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMP.OCX" & chr(34)
  379. End If
  380. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPASF.DLL")) Then
  381.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPASF.DLL" & chr(34)  
  382. End If
  383. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPCD.DLL")) Then
  384.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPCD.DLL" & chr(34)  
  385. End If
  386. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPCORE.DLL")) Then
  387.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPCORE.DLL" & chr(34)  
  388. End If
  389. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPNS.DLL")) Then
  390.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPNS.DLL" & chr(34)  
  391. End If
  392. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPSHELL.DLL")) Then
  393.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPSHELL.DLL" & chr(34)  
  394. End If
  395. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPUI.DLL")) Then
  396.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPUI.DLL" & chr(34)  
  397. End If
  398. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPSCHEME.XML")) Then
  399.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPSCHEME.XML" & Chr(34)
  400. End If
  401. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPSTUB.EXE")) Then
  402.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPSTUB.EXE" & chr(34)  
  403. End If
  404. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMSDMOD.DLL")) Then  
  405.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMSDMOD.DLL" & chr(34)  
  406. End If
  407. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMSDMOE2.DLL")) Then
  408.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMSDMOE2.DLL" & chr(34)  
  409. End If
  410. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMSDMOE.DLL")) Then
  411.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMSDMOE.DLL" & chr(34)  
  412. End If
  413. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMSPDMOD.DLL")) Then
  414.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMSPDMOD.DLL" & chr(34)  
  415. End If
  416. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMSPDMOE.DLL")) Then
  417.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMSPDMOE.DLL" & chr(34)  
  418. End If
  419. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMSTREAM.DLL")) Then
  420.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMSTREAM.DLL" & chr(34)  
  421. End If
  422. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMV8DMOD.DLL")) Then
  423.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMV8DMOD.DLL" & chr(34)  
  424. End If
  425. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMVCORE.DLL")) Then
  426.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMVCORE.DLL" & chr(34) 
  427. End If
  428. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMVCORE2.DLL")) Then
  429.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMVCORE2.DLL" & chr(34)  
  430. End If
  431. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMVDMOD.DLL")) Then
  432.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMVDMOD.DLL" & chr(34)  
  433. End If
  434. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMVDMOE2.DLL")) Then
  435.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMVDMOE2.DLL" & chr(34)
  436. End If
  437. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMVDMOE.DLL")) Then
  438.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMVDMOE.DLL" & chr(34)   
  439. End If
  440. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPVIS.DLL")) Then
  441.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPVIS.DLL" & chr(34)  
  442. End If
  443. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\BROWSEWM.DLL")) Then
  444.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\BROWSEWM.DLL" & chr(34)  
  445. End If
  446. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPLAYER.EXE")) Then
  447.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPLAYER.EXE" & chr(34)  
  448. End If
  449. If (myfiles.FileExists(windir & "\SYSTEM\ASFERROR.DLL")) Then
  450.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\ASFERROR.DLL" & chr(34)
  451. End If
  452. if (myfiles.FileExists(windir & "\SYSTEM\BLACKBOX.DLL")) Then
  453.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\BLACKBOX.DLL" & chr(34)
  454. End If
  455. if (myfiles.FileExists(windir & "\SYSTEM\CEWMDM.DLL")) Then
  456.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\CEWMDM.DLL" & chr(34)
  457. End If
  458. if (myfiles.FileExists(windir & "\SYSTEM\DRMCLIEN.DLL")) Then
  459.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\DRMCLIEN.DLL" & chr(34)  
  460. End If
  461. if (myfiles.FileExists(windir & "\SYSTEM\DRMSTOR.DLL")) Then
  462.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\DRMSTOR.DLL" & chr(34)  
  463. End If
  464. if (myfiles.FileExists(windir & "\SYSTEM\DRMV2CLT.DLL")) Then
  465.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\DRMV2CLT.DLL" & chr(34)  
  466. End If
  467. If (myfiles.FileExists(windir & "\SYSTEM\LAPRXY.DLL")) Then 
  468.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\LAPRXY.DLL" & chr(34)  
  469. End If
  470. if (myfiles.FileExists(windir & "\SYSTEM\LOGAGENT.EXE")) Then
  471.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\LOGAGENT.EXE" & chr(34)
  472. End If
  473. if (myfiles.FileExists(windir & "\SYSTEM\MP43DMOD.DLL")) Then
  474.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MP43DMOD.DLL" & chr(34)  
  475. End If
  476. if (myfiles.FileExists(windir & "\SYSTEM\MP4SDMOD.DLL")) Then
  477.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MP4SDMOD.DLL" & chr(34)  
  478. End If
  479. if (myfiles.FileExists(windir & "\SYSTEM\MPG4DMOD.DLL")) Then
  480.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MPG4DMOD.DLL" & chr(34)  
  481. End If
  482. if (myfiles.FileExists(windir & "\SYSTEM\MSNETOBJ.DLL")) Then
  483.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MSNETOBJ.DLL" & chr(34)  
  484. End If
  485. if (myfiles.FileExists(windir & "\SYSTEM\MSPMSNSV.DLL")) Then
  486.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MSPMSNSV.DLL" & chr(34)  
  487. End If
  488. if (myfiles.FileExists(windir & "\SYSTEM\MSPMSP.DLL")) Then
  489.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MSPMSP.DLL" & chr(34)  
  490. End If
  491. if (myfiles.FileExists(windir & "\SYSTEM\MSSCP.DLL")) Then
  492.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MSSCP.DLL" & chr(34)  
  493. End If
  494. if (myfiles.FileExists(windir & "\SYSTEM\MSWMDM.DLL")) Then
  495.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MSWMDM.DLL" & chr(34)  
  496. End If
  497. if (myfiles.FileExists(windir & "\SYSTEM\QASF.DLL")) Then
  498.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\QASF.DLL" & chr(34)  
  499. End If
  500. if (myfiles.FileExists(windir & "\SYSTEM\WMADMOD.DLL")) Then
  501.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMADMOD.DLL" & chr(34)  
  502. End If
  503. if (myfiles.FileExists(windir & "\SYSTEM\WMADMOE.DLL")) Then
  504.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMADMOE.DLL" & chr(34)  
  505. End If
  506. if (myfiles.FileExists(windir & "\SYSTEM\WMASF.DLL")) Then
  507.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMASF.DLL" & chr(34)  
  508. End If
  509. if (myfiles.FileExists(windir & "\SYSTEM\WMDMLOG.DLL")) Then
  510.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMDMLOG.DLL" & chr(34)  
  511. End If
  512. if (myfiles.FileExists(windir & "\SYSTEM\WMDMPS.DLL")) Then
  513.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMDMPS.DLL" & chr(34)  
  514. End If
  515. if (myfiles.FileExists(windir & "\SYSTEM\WMERROR.DLL")) Then
  516.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMERROR.DLL" & chr(34)  
  517. End If
  518. if (myfiles.FileExists(windir & "\SYSTEM\WMIDX.DLL")) Then
  519.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMIDX.DLL" & chr(34)  
  520. End If
  521. if (myfiles.FileExists(windir & "\SYSTEM\WMNETMGR.DLL")) Then
  522.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMNETMGR.DLL" & chr(34)  
  523. End If
  524. if (myfiles.FileExists(windir & "\SYSTEM\WMP.DLL")) Then
  525.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMP.DLL" & chr(34)  
  526. End If
  527. if (myfiles.FileExists(windir & "\SYSTEM\WMP.OCX")) Then
  528.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMP.OCX" & chr(34)
  529. End If
  530. if (myfiles.FileExists(windir & "\SYSTEM\WMPASF.DLL")) Then
  531.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPASF.DLL" & chr(34)  
  532. End If
  533. if (myfiles.FileExists(windir & "\SYSTEM\WMPCD.DLL")) Then
  534.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPCD.DLL" & chr(34)  
  535. End If
  536. if (myfiles.FileExists(windir & "\SYSTEM\WMPCORE.DLL")) Then
  537.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPCORE.DLL" & chr(34)  
  538. End If
  539. If (myfiles.FileExists(windir & "\SYSTEM\WMPNS.DLL")) Then
  540.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPNS.DLL" & chr(34)  
  541. End If
  542. if (myfiles.FileExists(windir & "\SYSTEM\WMPSHELL.DLL")) Then
  543.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPSHELL.DLL" & chr(34)  
  544. End If
  545. if (myfiles.FileExists(windir & "\SYSTEM\WMPUI.DLL")) Then
  546.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPUI.DLL" & chr(34)  
  547. End If
  548. if (myfiles.FileExists(windir & "\SYSTEM\WMPSCHEME.XML")) Then
  549.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPSCHEME.XML" & Chr(34)
  550. End If
  551. if (myfiles.FileExists(windir & "\SYSTEM\WMPSTUB.EXE")) Then
  552.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPSTUB.EXE" & chr(34)  
  553. End If
  554. if (myfiles.FileExists(windir & "\SYSTEM\WMSDMOD.DLL")) Then  
  555.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMSDMOD.DLL" & chr(34)  
  556. End If
  557. if (myfiles.FileExists(windir & "\SYSTEM\WMSDMOE2.DLL")) Then
  558.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMSDMOE2.DLL" & chr(34)  
  559. End If
  560. if (myfiles.FileExists(windir & "\SYSTEM\WMSDMOE.DLL")) Then
  561.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMSDMOE.DLL" & chr(34)  
  562. End If
  563. if (myfiles.FileExists(windir & "\SYSTEM\WMSPDMOD.DLL")) Then
  564.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMSPDMOD.DLL" & chr(34)  
  565. End If
  566. if (myfiles.FileExists(windir & "\SYSTEM\WMSPDMOE.DLL")) Then
  567.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMSPDMOE.DLL" & chr(34)  
  568. End If
  569. if (myfiles.FileExists(windir & "\SYSTEM\WMSTREAM.DLL")) Then
  570.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMSTREAM.DLL" & chr(34)  
  571. End If
  572. if (myfiles.FileExists(windir & "\SYSTEM\WMV8DMOD.DLL")) Then
  573.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMV8DMOD.DLL" & chr(34)  
  574. End If
  575. if (myfiles.FileExists(windir & "\SYSTEM\WMVCORE.DLL")) Then
  576.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMVCORE.DLL" & chr(34) 
  577. End If
  578. if (myfiles.FileExists(windir & "\SYSTEM\WMVCORE2.DLL")) Then
  579.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMVCORE2.DLL" & chr(34)  
  580. End If
  581. if (myfiles.FileExists(windir & "\SYSTEM\WMVDMOD.DLL")) Then
  582.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMVDMOD.DLL" & chr(34)  
  583. End If
  584. if (myfiles.FileExists(windir & "\SYSTEM\WMVDMOE2.DLL")) Then
  585.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMVDMOE2.DLL" & chr(34)
  586. End If
  587. if (myfiles.FileExists(windir & "\SYSTEM\WMVDMOE.DLL")) Then
  588.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMVDMOE.DLL" & chr(34)   
  589. End If
  590. if (myfiles.FileExists(windir & "\SYSTEM\WMPVIS.DLL")) Then
  591.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPVIS.DLL" & chr(34)  
  592. End If
  593. if (myfiles.FileExists(windir & "\SYSTEM\BROWSEWM.DLL")) Then
  594.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\BROWSEWM.DLL" & chr(34)  
  595. End If
  596. If (myfiles.FileExists(windir & "\SYSTEM32\CATROOT\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\WMPLAYER.CAT")) Then
  597.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\CATROOT\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\WMPLAYER.CAT" & chr(34)  
  598. End If
  599. if (myfiles.FileExists(windir & "\SYSTEM32\CATROOT\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\WMP.CAT")) Then
  600.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\CATROOT\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\WMP.CAT" & chr(34)  
  601. End If
  602. if (myfiles.FileExists(windir & "\SYSTEM32\CATROOT\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\DRM.CAT")) Then
  603.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\CATROOT\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\DRM.CAT" & chr(34)  
  604. End If
  605. If (myfiles.FileExists(userprofile & "\Nabφdka Start\Programy\Windows Media Player.LNK")) Then
  606.     Killer.Writeline "del " & chr(34) & userprofile & "\Nabφdka Start\Programy\Windows Media Player.LNK" & chr(34)
  607. End If
  608. if (myfiles.FileExists(userprofile & "\Nabφdka Start\Programy\P°φsluÜenstvφ\Zßbava\Windows Media Player.LNK")) Then
  609.     Killer.Writeline "del " & chr(34) & userprofile & "\Nabφdka Start\Programy\P°φsluÜenstvφ\Zßbava\Windows Media Player.LNK" & chr(34)
  610. End If
  611. if (myfiles.FileExists(userprofile & "\Plocha\Windows Media Player.LNK")) Then
  612.     Killer.Writeline "del " & chr(34) & userprofile & "\Plocha\Windows Media Player.LNK" & chr(34)
  613. End If
  614. if (myfiles.FileExists(allusersprofile & "\Data aplikacφ\Microsoft\Media Index\WMPLIBRARY_V_0_12.DB")) Then
  615.     Killer.Writeline "del " & chr(34) & allusersprofile & "\Data aplikacφ\Microsoft\Media Index\WMPLIBRARY_V_0_12.DB" & chr(34)
  616. End If
  617. if (myfiles.FileExists(windir & "\All Users\Data aplikacφ\Microsoft\Media Index\WMPLIBRARY_V_0_12.DB")) Then
  618.     Set alluser = MyFiles.GetFolder(windir & "\All Users\Data aplikacφ\Microsoft\Media Index")
  619.     kurz = alluser.ShortPath
  620.     Killer.Writeline "del " & chr(34) & kurz & "\WMPLIB~1.DB" & chr(34)
  621. End If
  622. if (myfiles.FileExists(windir & "\Nabφdka Start\Programy\Windows Media Player.LNK")) Then
  623.     loesch = Myfiles.Deletefile(windir & "\Nabφdka Start\Programy\Windows Media Player.LNK", TRUE)
  624. End If
  625. if (myfiles.FileExists(windir & "Nabφdka Start\Programy\P°φsluÜenstvφ\Zßbava\Windows Media Player.LNK")) Then
  626.     loesch = Myfiles.Deletefile(windir & "Nabφdka Start\Programy\P°φsluÜenstvφ\Zßbava\Windows Media Player.LNK", TRUE)
  627. End If
  628. if (myfiles.FileExists(windir & "\Plocha\Windows Media Player.LNK")) Then
  629.     loesch = Myfiles.Deletefile(windir & "\Plocha\Windows Media Player.LNK", TRUE)
  630. End If
  631. if (myfiles.FileExists(userprofile & "\Data aplikacφ\Microsoft\Internet Explorer\Quick Launch\Windows Media Player.LNK")) Then
  632.     Killer.Writeline "del " & chr(34) & userprofile & "\Data aplikacφ\Microsoft\Internet Explorer\Quick Launch\Windows Media Player.LNK" & chr(34)
  633. End If
  634. if (myfiles.FileExists(windir & "\Data aplikacφ\Microsoft\Internet Explorer\Quick Launch\Windows Media Player.LNK")) Then
  635.     loesch = Myfiles.Deletefile(windir & "\Data aplikacφ\Microsoft\Internet Explorer\Quick Launch\Windows Media Player.LNK", TRUE)
  636. End If
  637.  
  638.  
  639. hardfolder = Programs & "\Windows Media Player"
  640. Set festverz = myfiles.GetFolder(hardfolder)
  641. Set Subfolder = festverz.Subfolders
  642. For Each folder in Subfolder
  643.     Set Currentfolder = Myfiles.GetFolder(festverz & "\" & folder.name)
  644.     Set ffiles = Currentfolder.Files
  645.     ords = Currentfolder.ShortPath
  646.     For Each file in ffiles
  647.         If NT = "" Then
  648.             Killer.Writeline "del " & chr(34) & ords & "\" & file.Shortname & Chr(34)
  649.             
  650.         Else
  651.             Killer.Writeline "del " & chr(34) & Currentfolder & "\" & file.name & Chr(34)
  652.         End If
  653.     Next
  654.     If (myfiles.FolderExists(programs & "\Windows Media Player")) Then
  655.         If NT="" Then
  656.             Killer.Writeline "rd " & chr(34) & ords & chr(34)
  657.         Else
  658.             Killer.Writeline "rd " & chr(34) & Currentfolder & mm & chr(34)
  659.         End If
  660.     End If
  661. Next
  662. Set ffiles = festverz.Files
  663. For Each file in ffiles
  664.         If NT = "" Then
  665.             ords = festverz.ShortPath
  666.             Killer.Writeline "del " & chr(34) & ords & "\" & file.Shortname & Chr(34)
  667.         Else
  668.             Killer.Writeline "del " & chr(34) & festverz & "\" & file.name & Chr(34)
  669.         End if
  670. Next
  671. If (myfiles.FolderExists(programs & "\Windows Media Player")) Then
  672.     If NT="" Then
  673.         Killer.Writeline "rd " & chr(34) & ords & chr(34)
  674.     Else
  675.         Killer.Writeline "rd " & chr(34) & programs & "\Windows Media Player" & chr(34)
  676.     End If
  677. End If
  678.  
  679. Killer.Writeline "echo off"
  680. Killer.Writeline "echo Spus¥te poΦφtaΦ v nouzovΘm re₧imu a"
  681. Killer.Writeline "echo odstra≥te z registru vÜechny polo₧ky Windows Media Player"
  682. Killer.Writeline "echo nebo WMP v systΘmu pomocφ naÜφ utility pcwRegedt.exe"
  683. Killer.close
  684.  
  685. Set Killer = MyFiles.OpenTextFile(windir & "\pcwKmp.BAT", 1, False)
  686. Do While Not Killer.AtEndOfStream
  687.      Zeile = Killer.ReadLine
  688.      Nummer = Killer.Line-1
  689. Loop
  690. Killer.close
  691. Nummer = Nummer-5
  692.  
  693. loesch = Myfiles.Deletefolder(windir & "\Help\Tours\WindowsMediaPlayer", True)
  694. loesch = Myfiles.Deletefolder(userprofile  & "\Data aplikacφ\Microsoft\Media Player", True)
  695. loesch = Myfiles.Deletefolder(userprofile  & "\Data aplikacφ\Microsoft\Windows Media", True)
  696. loesch = Myfiles.Deletefolder(userprofile & "\Lokale Mφstnφ nastavenφ\Data aplikacφ\Microsoft\Media Player", True)
  697. loesch = Myfiles.Deletefolder(userprofile & "\Mφstnφ nastavenφ\Data aplikacφ\Microsoft\Windows Media", True)
  698. loesch = Myfiles.Deletefolder(windir  & "\Data aplikacφ\Microsoft\Media Player", True)
  699. loesch = Myfiles.Deletefolder(windir  & "\Data aplikacφ\Microsoft\Windows Media", True)
  700.  
  701. If NT = "" Then
  702.     Wo = "v re₧imu MS-DOS"
  703. Else
  704.     MyShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Setup\RecoveryConsole\SetCommand", 1, "REG_DWORD"
  705.     Wo = "v Konzole pro zotavenφ"
  706. End If
  707.  
  708. Ende = MsgBox("Restartujte poΦφtaΦ" & Wo & " a spus¥te dßvkov² soubor " & windir & "\pcwKmp.BAT , kter² odstranφ zbylΘ " & Nummer & " soubory Windows Media Playeru.", 64, "Skript PC WORLDu pro odstran∞nφ WindowsMedia Playeru: Hotovo")
  709.  
  710.